<%

Function usuario_get (id, campo)

	DIM rs

	str = "Select "&campo&" FROM usuarios WHERE id="&id
    Set rs = conexao_geral.Execute(str)
	
	If not rs.eof then
	
		usuario_get = rs(campo)
		
	Else
	
		usuario_get = ""
		
	End If

End Function

%>
